hwy_maps <-leaflet()%>%
setView(-79.26, 36.05, zoom=11) %>%
addProviderTiles(providers$CartoDB.Positron)%>%
addPolylines(data=trm_v6_hwy,
group ="TRMv6.2",
color="black",
opacity=0.6,
weight=0.5,
popup=paste("Road Name: ", trm_v6_hwy$ROADNAME)) %>%
addPolylines(data=triad_hwy,
group="Triad",
color="blue",
opacity=06,
weight=0.5,
dashArray = "5,5",
popup=paste("Road Name: ", triad_hwy$ROUTE_NAME)) %>%
addPolylines(data=trm_g2_hwy,
group="TRMG2",
color="green",
opacity=0.6,
weight=0.5,
popup=paste("Road Name: ", trm_g2_hwy$ROADNAME)) %>%
addLayersControl(overlayGroups = c("TRMv6.2", "Triad", "TRMG2"))
## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +no_defs).
## Need '+proj=longlat +datum=WGS84'
## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +no_defs).
## Need '+proj=longlat +datum=WGS84'
## Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +no_defs).
## Need '+proj=longlat +datum=WGS84'
hwy_maps %>% hideGroup("TRMG2")